$self->x = rand(0, c("Form1")->w - $self->w);
$self->y = rand(0, c("Form1")->h - $self->h - 30);